home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / sound / mrmpeg / listload.rexx < prev    next >
OS/2 REXX Batch file  |  1997-12-01  |  814b  |  26 lines
  1. /* ListLoad.rexx */
  2.  
  3. options results; parse arg mode; address MrMPEG
  4.  
  5. ASLFR_InitialDrawer    = 0x80080009;    ASLFR_InitialFile    = 0x80080008
  6. MUIA_List_Active    = 0x8042391c;    MUIA_List_Entries    = 0x80421654
  7. MUIA_ShowMe        = 0x80429ba8;    MUIV_List_Active_Bottom    = -3
  8. MUIV_List_Active_Top    = -2
  9.  
  10. if mode ~= 0 then
  11.   aslrequest TITLE '"Load list"' ATTRS ASLFR_InitialDrawer '"ENVARC:"',
  12.     ASLFR_InitialFile '"MrMPEG.list"'
  13. else result = "ENV:MrMPEG.list"
  14. if open('List', result, 'r') = 1 then do
  15.   if mode = 1 then call Clear.rexx
  16.   list ID SLIST ATTRS MUIA_List_Entries
  17.   entries = result
  18.   do while ~eof('List')
  19.     temp = readln('List')
  20.     list ID SLIST INSERT NODUP POS MUIV_List_Active_Bottom STRING temp
  21.   end
  22.   call close('List')
  23.   if entries = 0 then list ID SLIST ATTRS MUIA_List_Active MUIV_List_Active_Top
  24. end
  25. return
  26.